0014 


COA 


I I) 
s 


(OO 


O400 
5000 
GON 


O100 
3400 
BOQ 


4400 
400 
FOOO 
OOO: 


(0004 


0000 
QO00 


Ho dH 


if 


HHKRHHKHHKKRHHHKHHKRHHHKHHHRHHKHHHRERHRHHRHRHRHRHRHRHRERERREHRERKRHEE 


3 + 
; FROGRAM ID: DOUBLE D Bios (OBITS) + 
క + 
SHHEHHEHHRHHEHHKHRHKEHKKEHHKERHHR HHH RHE RHR RHHERHHRHHHREEHREHE 
? # 
5 VERSION: CPM 2.2 8° RELEASE ZA * 
: # 
3 

SHEHHKREHKE EHH KHHEHHRERHHEHKRERHERHKHERHERHEHHRERHRHHEHREEHHEE 
5 జ 
5 PRESENTED BY: JADE COMPUTER PRODUCTS # 
; 4701 W. ROSECRANS BLVD, # 
5 HAWTHORNE. CALIFORNIA # 
? POLIO» Ue Se Fie ణా 
? + 
SHH HHHHEHHHERHHHHREHKERHHHHRRHHKRHRHHRERRERHHHEH SE HH 


SHER HHKHKHRHHHHKRHRRRRERERERERHEHRHRKRHKHHHHHKHHHKHHHHERHES 
7 DECLARE LPM he SYS EM Slze # 
| PHHHKKEHRKHHKKEHRRKHHRKHEEHHHHKHEHRHRHHKEHEHRHRHHHKHHHREREREES 


CPMSNE Et 2Q Foo lEP Sli BN TES, 


SHREHEKRHKHHKHKRHKRHHKHKRHHEKRHEHKRHHKRHHHHHRHRHHRHKHHHHRHHHHHHHHKRHHHEHHEHRHEHEH 
>; DOUBLE DO HARDWARE FARAMNETER —~ SYSTEM FORT ADDRESS # 
Ss FHRKRKHKHKRKRHHRHHKRHHHHHHHHKRHKRHHKRKRKRHHRHKRHHKHHHEHHHHHKERHREREERHHEEKSE 
OSPORT EGU O43H SOQUBLE DO PORT ADDRESS. 

Ss RHRHHKHKRKHKHKKKHHEHHRKHHHHHHHHKRHEHRKKRHRHHRHRERKEHHEKRHHHEHREHEHH 
5 SELECT NUMBER OF DISSE DRIVES USED % 
> HHEREKRKRKHRKHHRKHRKRKRKRHKHHHKRHKHHRHEHHHHKRHRHKHHKRKHHHKHKEHPHRHKRHHRRHEHHHEHEEHEH 
N$OoRVS Ell = SELECT 1 TO 4 DRIVES. 

FHHKHHHRHHKHKKHHHHHHRKRKHHKHHHKKKRHRKRRHHHHHRKHHKHKKHRHHRHEREREE 
5 DISK OPERATING SYSTEM ADDRESSES. + 
SF HHHRRRKHKEKRHRHHKRHKHHKRHHKRHHHKHKRHHRHHEKRHHHHHKRHHRKHHRHHKRHHHEKHER 


FH J ml EG 1024 1K BYTE Sie. 
CPM$SZ ECL CRMSNE * KSB TOF SYSTEM ADDRESS. 
CPMSBS ECL CEMSsZ—-(SO8#K $B) :CR/M BIAS VALUE, 


TFA EGU O100H ADDRESS OF TFA. 

CCP ECW CPMSBS+3400H ADDRESS OF CCF. 

BOWS: Eu CEM$BS4+3C00H ADDRESS OF BDOS, 

BIOS EGU CFEMSBS+4A00H ADDRESS OF BIOS 
BICS$R EGU LOQOH-BIOS SDT OFFSET 1000H LOAD. 
ECT EG OF OOOH SROOT FROM JUMP TABLE. 
I$: Ecill QOO3H 71/0 BYTE LOCATION, 
OFSLoc EGU Q004H SDOIRIVE ASSIGN LOCATION. 


SF HHHHHPHHHHHRKEHEHHRERHERHEHEHRERHHEHERHREHRHR RHR EHHHHHRHRHERHE 
5 DUUBLE 0 SYSTEM FARAMETERS # 
5 HHHHHEKRHHHRHHEHHHEHHRHEHHHEHRHHHEKHEHKHHEHHRHHHKHHERRHEEHRHHRERHE 


IOBYTE EtiLI QQQQ000008 
DFSORY EH QO 


INITIAL TORBYTE VALUE. 
INITIAL DEFAULT DRY, 


OOO 
O100 


OOO] 


0001 
0000 


తత ఆపి తెలి అ 


OO0OF = 


O370 
OE 
O300 
OSAQ 
OsB1 


QO} 
O00 1 
QOOOS 


OOO 


QQ04 


4AAQQD 


4A00 
4A03 
4A06 
4A0%7 
4A0C 
4A0F 
4Alz 
4615 
4815 
4815 
4A1E 
4A 1 
44 
4A27 
482A 
4620 


Hon Wo ou 


a, aes = శాత onto coy 
శీ J i, ! tb d J d i, é J i 


3 ba OU fal Le 33 aa bs 
జః 
a 
TT 
భః 


3 
5 
TT 
Ge 
fs 
TIT 


CaCO A 


sero Z "EGU OOOH SEYTES FER SECTOR. 
FMTSiZ El O1O0H FORMAT BLIFF SIZE. 


SHHEEMHEHK HHH HHERHHHEHHHRHHHHHHE RHE EHE RHE HRERERHERHHERHEH 
5 DOUBLE DC HARDWARE COMMANDS # 
THHHEMHHRHERRHHHEHRHHHHEHHHHERRHHHHRRHRHH HHH RHHRRERHHRHRRERH 


OCSSIN EGU ODOO0001R sSWITCH DO BANE O INTO SYSTEM. 
OCSMBO EGU OOO00O0001R FSELECT DOUBLE Lr BANE 0. 
QOCS$MBl EGU OOOOOO11BR $S$SELECT DOUBLE Lr BANE 1. 
OCssenT Eh ooooooooR sSWITCH DO MEM OUT OF SYSTEM. 
QOCSINT EG OOOOOO1LOR sIssue OD Zeoaq INTERRUPT. 


S HHHKHHKKHHHHHHHKHHHHHHEHHHRHRHHKHKHRHRHHKERHHHHHREHHHREHHE 
5 DISK CONTROLLER MODULE LINKAGE (LCM -— VER 2.2) శ 
S RHEE HHHHEKEHH KH HH HHH HK 
CEFINEL )H#XHHHHHRHHHEHHHHHREEREES 


SHHHHHHEH( TCM ADDRESSES 


QOSCRT EGU O370H SCOMMAND BLOCK (BANE 0), 
DOSRUF EGU OsSOH SECTOR BUFFER (BANE. Oe 
LLI4FEF Et O300H FORMAT BUFFER (BANE 1). 
DOSOPR Et OSAOH SIL SEC LIFE (BANE ©). 
LLé$LLF Ets OsB1LH 710 SEC FLAGS (BANE ©). 


SHHHHEHHE( DCM COMMANDS J HHHRHKHHHRHHRHHHHHERHHRHHRHHKRHRHHEH 


DCSloG Ett OOH ‘LUG ON DISKETTE. 
DOCéROS ER QOH REAL SECTOR. 
QCStwRS Eu Q02H SWRITE SECTOR. 
DCSP MT Et OOSH ;FORMAT TRACK. 
DCSlsT Emu OOH LIST CHARACTER. 
DCSeck EQ OO4H $LIST STATUS, 


FHHHHHHHHHHHHRHHHHHHRHRHHHHHEHHHRERHRRHHHEHEHRHHHRRHHHHRHRRHEHESE 
5 ASSEMBLER DIRECTIVES # 
FS HHHHHHHHHHHHHEHHHHHEHEHHEHHRRHHRHHERHKRHHRHHHKHRHHREHHEHHEHE 
ORG BIOS 
FHHHHHEHHEHHREHHEHRHRHKHHHRERHERHEHHHEHRRHRRRHREEHERHEHHEHEHE 
5 BIOS JUMP VECTOR TABLE # 
FHKE HHHHKHHKHHHRHRERHHRHRHEERHEHHHRHREHRHEHHRHEEEHHEERHEHEHE 


IMP INIT COLO START ENTRY 
IMF WARM SRELOAD Cor / BOOS 

MF CNS $k GET CONSOLE STATUS 
IMF NSS IN s;CUNSOLE INPUT 

IMF CNS$OT CONSOLE OUTPLIT 

AMF LIST IFRINTER OUTPUT 

IMF PUNCH FLINCH OUTPUT 

IMF READER ;READER INPUT 

IMF HUME THOME SELECTED DRIVE 
IMF SELDSK SELECT DISK DRIVE 
IMF mE TTRE. ET TRACK NUMBER 
IMF pe oa os a EET SECTOR NUMBER 
IMP SE TOMA EET TRANSFER ADDRESS 
IMF QOISERO ;PERFORM DISK REAL 
IME DISKWR PERFORM DOISK WRITE 
IMF LilSist RETURN LIST STAT 


4A30 
4A 


AA 
4A3s? 
4A3C 
4A3F 


4A42 
4A4S 
4A4S 
4A4E 
4A40 
4Aa0 
4AS1 
4AS34 
pie 2 
4A 

yee 3 
4ASF 
4A: 
4A64 
4AG7 
4AG7 


4A6C 
4AG6F 
4A70O 
4A73 
4A76 
4A73s3 
4A7E 
4A7C 
4A7F 
4A 
4AS5 
4Aseé 
4As? 


4Asc 
4ASF 
4A92 


4A23 


33148 
C34148 


318000 
21vé64C 
CO4c4ae 
C337 4A 


SA0O300 
327140 
3A0400 
FEOZ 
NAS14A 
AF 
329240 
318000 
SEQO 
ER AL 
O o1 Od 
CLF E 4A 
VEO: 
COF 744A 
OE0N1 
COF 444 


COO44B 
AZ 
C2Sc44 
SASB4C: 
FES 
CAYS4A 
i IN 

32 SR4cr 
118000 
~AGO4C 
i? 
22G04C 
34044 


21CB4C 
CO4C4e 
76 


O10 00 


5 TRANSLATE SECTOR 
FORMAT A TRACK 


IMF SECTRN 
IMF FORMAT 


SHHEHHHEEHKHHKEHHHEHHHEEHHHEHHEHHHEHHRHRHKHEHHRHHRRHERHHERHRHHEE 
5 COLD START ENTRY ~- ISSUE SIGN ON MESSAGE * 
SHHHHHEHHHEHHEHHHRHHHEKHREHHHEHKERHHERHKHERKHRHHEHRHHKHHHREEHHE 


INIT: LXI SF, DOEOH SET UF STACK AREA. 
LXI Hs M$ EIGN ON MSG ADOR. 
CALL MSGscT 7;ISSUE MESSAGE. 
IMP CPMSLO SLOAL COP/ BOOS 


SHHKHHKHHKKEKHRHHKHHKHHKERKEEHHEHEHERKE RHEE HRKEHHKERHKERHHRERE 
5 WARM BOOT ENTRY — LOADS CcCr/BDOS ~ INITIALIZES # 
SHHKHHHHHHEHRHRHHHEHKERHRERKERHERHKERRERRHREHHHERRHRERHERHEE 


SHHEHHHHE(C SET UF FOR COCP/BDOS LOAD )HHRHHHHHHKHHHHHHHEE 
WARM: LOG IO$Loc GET I/0 BYTE VALUE. 
STA TOs IMG TORE [70 VALLE. 
LOA DOF $l SGET DEFAULT DRIVE. 
CPI NELLY: SCHECK LEGAL DRIVE. 
a | WRHECE: IF LEGAL, GO Ck. 
XRA i FSET DRIVE Ta A. 
WRM#$OK: STA DF ¢ IMG ;STORE IN IMAGE. 
LXI SP, OO80OH PET UP STACK. 
CPMSLOs MVI A, LF SORYV INIT DEFAULT DRIVE. 
STA RTSoORYV ELECT DISK. 
LXI EH, CCF SCR /M CCF ADDRESS. 
CALL SE TOMA SET OMA ADDR. 
MV I Cos CCP 1ST SECTOR. 
CALL oe 15SEC EET SECTOR NMER. 
MV I Cl CCF ELE TRACK. 
CALL SETTRE EET TRACK NUMBER. 


SHHHHHHHE( LOAD COP SBOE 


JHHHHHHHRKHKHHHHRHHHRHHKRRHHHKREHEHREEHEH 


WSREADS CALL DISKRO REAL ONE SECTOR. 
ANA A EET FLAGS. 
wINZ WSEROR EXIT IF ERROR. 
LTA BT SSsEC GET SECTOR NMBR. 
CFI 45 LAST SECTOR CHECK, 
IZ W$ZRPG SGOT ZERO FAGE SET. 
INR జ 5 INCREMENT SECTOR. 
2TA BTSSEC STORE NEXT SECTOR, 
LX DD, SEC$s2 PGE) SECTOR SIZE; 
LHLL ET SOMA GET TRANSFER ADDR. 
DAD Li SCALCLULATE NEW ADDR. 
SHLD BTSOMA EET NEW ADDRESS. 
IMF WSREAD 700 ANOTHER WARM READ. 


meet READ ERROR DETECTED 


JHHKHHKHKKHKHHHHKHHHHHHEEKEHH 


WSEROR: LXI H»MSG$LE GET ERROR MESAAGE. 
CALL MSGSOT 7 ISSUE MESSAGE. 
HLT SOR GOTO MONITOR 


5 HHHHKHEHE ( 


WSZRPG: 


ie 


BS 


INITIALIZE SYSTEM PARAMETERS )###eHRHHHEREHHHEE 


BASE IMAGE SIZE. 


Food 
Foot? 
FOOT 


4AAc 
4AAF 


4AHO 
4AB1 
4AB4 
4ABG 
4AES 
4ABA 
4ABD0 


4ACO 
4A: 
4Ac4 
4A 
4Acy 
4AC 
4ACFr 


4A00 
4A0z 


4A0m 
4AD0S 


& 4F 


110000 
S1SE4L 


=H > £0414 


Z1LEB000 


2246040 


SA0400 


Caos 


SE1AC9 
cs 


79 
325040 
SEO] 
[24 
SEOS 
COSA4E 
C34448 


SEOI 
D343 
SEOS 
COSA4E 
CO4448 
SASF 4c 


CY 


QOEOO 
CSF444 


210000 
zy 


LXI Li, 0) BASE ADDRESS SET. 

LXI H, Bod IMG EASE IMAGE ADDR. 

CALL BLE SBLOCK MOVE ROUTINE. 
LXI Hs; OOSOH SDEFAULT SECTOR BUFF. 
SHLD ET SOMA (SET TRANSFER ADDRESS, 

sete GUM TO CCP ) HHH RHHHHEKHHHHHHHHHHHHHEHHHRREHE 

LOA DF $l GET CURRENT List. NMEBR. 
MoV CoA END To THE CCF. 

IMF CCF SLIMF: INTO CCF CF/M. 


SHHKHHHHHERHHEHHEHHEHRHHHHHERHHEHHH RHE RHRHHRHHRRHRRHHHRHHREH 
; CONSOLE LINKAGE DEFINITIONS — BOOT FROM ADDRESSES # 
SHEER KKEREKHHRKHHH EHH EERE HH HK HK HEHE HHH HK 


ECCT +0O048H 
BOOT +007H 
BOaT+O0CH 


CHECK CONSOLE INPUT. 
s;READ CONSOLE INFUT. 
CHARACTER TO CONSOLE. 


CNS$Ck EGU 
CNSSIN El 
CNSS$OT EGU 


SEHK EHERHHRHHHHHHEHHHRHHHHHERHHHHHERHHHHHRHHHEHHEREHHE 
5 READER AND PUNCH DRIVERS ~ USER SHOULD DEFINED # 
SHHKEHHEHEEHHHRHHHEHHHHHHHERKEHHEHHHEHHRHHHEEHRHERHKRRHHEREREE 


READER: 
FLINCH: 


MVI 
RET 


A» CNTL#Z! RET s;RETURN END OF FILE. 


SNOT IMPLEMENTED. 


SHHEHEHKHKEHEKKEHEHKEKREKEKHEHKERERHRHEKHREHERHHHHERHERHEEHE 
5 PRINTER DRIVER AREA — DCM SERIAL FORT LINKAGE # 
SHHHHHHKEHEKKHEHRHEHEEHEEHEHERHERERKEREHKREHEEHHERHEERHEEHREEE 


LIST: May As s;LIST CHAR TO ACCUM. 
STA BET SCHR ;STORE LIST CHARACTER. 
MVI A» OCSS IN ;LOAD SWITCH MEM CMND. 
CUT DSPORT 7; ISSUE HARDWARE CMNL. 
MVI A, OCSLst DCM LIST COMMAND. 
CALL DSK SE X CALL DISK EXECUTE. 
IMF DSk $i s;RETURN TO CALLER. 

LISTSTs MVI A», Lh IN 5LOAL SWITCH MEM CMNL. 
QUT DSPORT 7; ISSUE HARDWARE CMNOD. 
MV I A» DCS Lok DCM LIST STAT CMNL. 
CALL Desk BE X SCALL DISK EXECUTE. 
CALL Desk SOK SWITCH LL MEM OUT. 
LOA BT#STS LOAD RETURN STATUS. 
RET RETURN TO CALLER. 


S HHKHHHHHHEHHHRHHRHHEHHHHHERHHHRHRHKHHHREHHHEHHEHHHEHHE 
5 HOME - SET TRACK TO ZERO జ 
S EHHHHHHHKEHKEHKHRHHERHHRKHERHHERHKERHHRKKERRKERHRHEHRHEERE 
HOME 2 MVI 
IMF 


CO 7 REGISTER TO ZERQ. 
SETTRE 7FERFORM SET TRACK. 


SHEMHHRKHEHEHEKHRHEHEHEHHKHHEREHHHRKERHKHKHKHRHRHRERHEHE 
; SELECT DISK DRIVE — CHECK FOR LOGON + 
SHHEEHHKHNEHEKERKKHEHHRHEKKEKRKHKERHEHHERERRRHEHHREHREHRERHEE 
SELLE: LXI 
MoV 


H»O 
AO 


ERROR RETURN CODE. 
;PUT DRIVE NMBR IN A. 


4A0'Y 
4ALIE 


AADC 2 


4A0F 
44EO 


26440 


4AES SAS 


4AE4 
4AE7 
4AEY 
4AEA 
4AEE 
4AEU: 
4AELI 
4AF 0 
44F 1 


4AF4 
4AFS 
4AFS 


AAF® 
4AFA 
4AFI 


4AFE 
4AFF 
ARBROO 
ABO3 


4BO04 
4BO6 
4B0e 
4BOA 
4Bor 
4B10 
4Bis 
4614 
46817 
4B1A 
4618 
4Bicé 
4B1 


&F 


Pid 
LIE?V4C 
i= 
MSsRS4k 


79 
335040 


a 


SEO1 
0343 
sEol 
COSA4B 
C24A4E 
2AG604C 
EB 
OLS003 
2A4000 
Cy? 
OLeEO000 
co414c 
C3444B 


rl NORV CHECK IF LEGAL ORIVE. 
RNC ENO CARRY IF ILLEGAL. 


STA BTSORV SS TORE DRIVE NUMBER. 

Mov A»E SCHECK IF LOG-ON RE, 

STA LOGSRE STORE LOGON REGISTER. 
RETOSE: LOA ET SLIRV GET DRIVE NUMBER. 

Mi LA LL SET DISK NUMBER. 

MV I HO ZERO H REGISTER. 

DAD H 5 

DAD H 7 #4, 

LIAL H 5 Hi 

LIAL H 7#14 (SIZE OF HEADER). 

LXI Ll, OOSOFH DRIVE O DSPSH. 

DAD Li SHLSET DRIVE IN DEH, 

IMF LOGS CN 3G CHECK LOG-ON., 


SHEE HHHKKEHRHHHHKERHHKHHKEERRKHHHHEHHHHHHERERHRHHHHHHER 
5 SET TRACK NUMBER ul 
5 HHKHKEHEHHHHHHKHHKKKKHHRHHEEHEERHRHHRRHHRHHHHHHHHHHHHHHEHEHE 


SETTRE: May Al MOVE TRACK NUMBER. 
STA RTS TRE GAVE TRACK NUMBER, 
RET RETURN TO CALLER. 


5 HHEHHHEHHERHHHKKEHRKKEHHKE EKER HKERHERHEHRHHRERHRERHRERHEEHHE 
5 SET SECTOR NUMBER # 
| HHEHRHHKEHKHHHE HHH RKHEHEHKEHKEHHKKHKHHKERHERHKREHRHERHREHHE 


SETSECE MOV ALC MOVE SECTOR NUMBER. 
ETA BTSSeEc AVE SECTOR NUMBER. 
REE RETURN TO CALLER. 


5 HHKHKKEHREHREHHHHHHHHHHHHKKHKRKREKHRHERHKERHERKRHKRHHRHHHHRHEHES 
> SET MEMORY ADDRESS FOR DISK TRANSFER # 
SHHKKKEERERHEHHHHHHHKKHHKHEKKKREREREREHRHHKHHHHHRHRHHHHHHEHH 


SETOMA:S MOY HE HIGH ORDER MOVE. 
MoV Lt ;LOW ORDER MOVE, 
SHLD BTSOMA SAVE TRANSFER ADDRESS. 
RET RETURN TO CALLER. 


5S RERRRRRRHRHHERHRRERHRHEHHHREHHREHREEHEEKHEHHEHHERHKHHHHHHHH 
5 READ A DISK SECTOR ROUTINE * 
FS HHHHRHHHHHEHHHHHHHHHEHHHRHHEEHHHEHHHHEHHHKHHERHHKHEERRHHRERHHHEE 


DISKRO: MVI A, DICSSIN SWITCH DC INTO SYSTEM. 
CHIT SPORT ISSUE DD COMMAND. 
MVI A, OCSROS REAL SECTOR COMMAND. 
CALL DSK SE X 7FERFORM OPERATION. 
ANZ LISKSER sERROR EXIT. 
LHLI RTSOMA LOAD USER BUF ADDRESS 
XCHG MOVE HL To DE. 
LXI B, DOSBUF LOAD BUFFER OFFSET. 
LHLI DSADOR LOAD OO WINDCW ADDR. 
DAD E HL NOW SECTOR BUFFER. 
LXI EB, SEC#SZ LOAD SECTOR SIZE. 
CALL BLOCK BLOCK MOVE ROUTINE. 
JME DSK SOK NORMAL RETURN. 


5 HHHHHHKHKHHHHHKRKHHHKRKHHKHHHHKKHHHHHHHHHHHHRHRHHHRHRKRHHHHRHHHKHHHH 


AB24 
4B Ga 
4625 
48258 
4B2E 
4B31 
4k 
4B 


SEO] 
0343 
QOL1S000 
ZA4000 
11s00>3 
iY 

EE 
ZAGO4IL 
CO414C 


7 SEO? 


4S 1 
4Be2 
GES 
4EG 
4E7 
4B 
4Bay 
4658 
4 BC 
4BaF 
4640 


4&1 
4BEG 
4EE= 
AEG 7 
464) 
4B4C 
4EE&F 
4872 
4873 


COSA4H 
CA4448 
MS4A4B 


SEOQO 
O34 


& AF 


cy 


ఆర్య 
Ld 


TES 
ఇయు చ 


wi ti Cl Ci 


mM Ca TT 


Lt 


ZOO 
Cy 
“10100 
ov 


lw 


SEO! 
[iad 
EOS 
342 
010001 
<A4000 
110003 
i? 

EE 


>; WRITE A DISSE 


SECTOR ROUTINE 


+ 


SHEER HHHHHHHHHHHHHHHHHKHKHHHHHHHHHKHRHHHERHHRHRRHHRHHHRHHEHEE 


DUSEWR: 


MV I 
CLIT 
LXI 
LHLL 
LXI 
[AL 
XCHG 


A» LEE IN 
DSPORT 
BR, SECSSZ 
QSAR 
Li, OOSRUP 
Li 


ETé$[MA 
BLOCK 
A» DOCSWAS 
DSK SEX 
Lik $k 
DSKESER 


sSWITCH DOO INTO SYSTEM. 
; ISSUE HARDWARE CMNL. 
SLOAN SECTOR SIZE. 
SOL SYSTEM ADDRESS. 
700 BUFFER OFFSET 

HL NOW DO BUF ADDR. 
LE NOW DO BUF ADDR. 
HL NOW USER BUF ADDR. 
;BLOCK MOVE ROUTINE. 
LOAD WRITE SEC CMND. 
CALL DISK EXECUTIVE. 
;JUMF IF WRITE UE. 
;ERROR EXIT. 


RRR HEHE KH HHH HEHE KH HHH EH HH HH HHH 


> DISK 


READ/WRITE EXITS 


% 


SHHHHHKHHKHHKHHHHHHHHHHHKRHHHHHHKRKRHHHHEHHKHHHKRHKHKHHHHHRHHHHHHREHESE 


Crier SOK & 


DSKSER SE 


MVI 
MutT 
XRA 
RET 


MVI 
CLIT 
MV I 
RET 


A»DCsSoT 
SPORT 
a 


A>OC8S0T 
OSPoORT 
A» OFFH 


SSWITCH DOO CUT OF SYS. 
SISSSUE HARDWARE CMNID. 
ZERO A REGISTER. 
sNORMAL EXIT. 


SWITCH DOD GUT OF SYS. 
5 Lasalle HARDWARE CMNL. 
SLOAL ERROR FLAGS. 
sERROR EXIT. 


SRHERKHKRKKRHEKKHRKRKRHHKKRKHHRHRKREKEKRKEKRKKREKHRKRKKREKRHRKRKRHHKRRKRHHKREHHH 
5 TRANSLATE 
5 EERE HE 


SECTRN: 


NOTRAN: 


Mey 
CRA 
AZ 
XCHG 
DAD 
MoV 
MVI 
RET 
eG | 
DAD 
RET 


SECTOR NUMBER 


Czy 


TESTING TEL ADDR. 
SALLIR IN REG LE. 

IF ZERO. NO TRANS. 
(HL) NOW TRANS TEL. 
(HL) NOW TRANS SECTOR. 
LL IS TRANSLATED SEC. 
THIGH ORDER BYTE ZERQ. 
RETURN TO CALLER. 
EET HL TO ONE. 

ALL SEC NMBR TO HL. 
SRETURN To CALLER. 


> HHHRRKRKKHHKRKRHHKRKRKKKKRKKKKKEHKRHHKHHHHRKHHHHHKRHHHKHEHHHRHHHHHEHE 


5 FORMAT A DISK TRACK ROUTINE 


శ 


SHRRHRHKHKHHHKHEHHKRKHHEKRHKRKRHRHHKHHHHHHRHHRHKHRHKHKHRHRHKHHEEHHHKRHEHHEHREEH 


FORMAT: 


MVI 


A» OCSSIN 
DSPORT 
A» DCSMB1 
OSPORT 
BoFMT$3Z 
L$ALLR 
Li, LLI$F EF 
Li 


seen DO INTO SYSTEM. 
SSUE HARDWARE CMNGO. 


ISSUE HARDWARE _CMNE. 


28 88 «8 


LiL! SYSTEM ADDRESS. 

DO FORMAT BUF OFFSET. 
NOW LDL FBUF ADDR, 
NOW DO FBUF ADDR. 


28 ws WS 


mx 
mT 


4874 
4877 
4B7A 
4B7C: 
4R7E 
4Beo 
ABE 
ABS 
ABS 


4BSA 
48st 
4B70 
AE 
4B76 
4B77 
4B 
4B7R 
4BVE 
4BAQ 


4BA2 
4BAS 
4BAG 
4BAS 
4HAY 


4BAC 
4BAE 
4BRO 
4BR1 
4BEB2 
4BBS 
4BR4 


4EES 
4EEE: 
4EEA 


4EET 
4BC0 
4H: 


ZAGO4L 
O41 4 
EOL 
Crag: 
EOS 
COSA4E 
CO4446 
SASF 4: 


Te? 


CYL te 
010700 
117003 
ZA4000 
i? 

ER 
21384C 
CO414C 
SEOS 
Des4c 


BA4200 


AQ 
CSAGA4E 


3E01 
1343 


SAG644C 
E401 
24448 


22624C 
SEO1 
0343 


LOGON: 


LHLLi RT SOMA FORMAT FROGRAM ADDR. 
CALL BLOCK ELLIE MOVE ROUTINE. 
MV I A» DCSMBO SRESELECT DOO BANE ©. 
CLIT DNSPORT ;ISSUE To DO HARDWARE. 
MV I A» OCSPMT LOAD FORMAT TRE CMNOZ. 
CALL Cesk SE X CALL DISK EXECUTIVE. 
CALL Lizk Sok. SSWITCH DO MEM OUT. 
LOA BIGstS LOAD FORMAT STATUS. 
RET FORMAT EXIT. 


SHHHRHHHHKHHHHKHHHHHHHHHHKRHKHKRHHHRHHHHKRRKRKRHRHHHHHEHHHRHHRRERHRHESE 


5 DOUBLE DC EXECUTION SUBROLITINE + 
“HHEHHHHHHHERKHHHHKHHHHRHHHHHHHHHHHHHHHHHHHHHHHHHHHHEEEE 
JHEHREKHEH 


7HHHHHHH( COMMAND BLOCK TO DOUBLE DO AND EXEC 


NSESEXS STA BTSCMOE STORE DCM COMMAND. 
LXxXI BR, 7 *>NMBR BYTE TOO MOVE, 
EAL Li, OOSCRT COMMAND BYTE OFFSET. 
LHL LIé#ALILIK SLL SYS ADOURESS. 
DAL Li HL NOW PTS CMNL BLE. 
XCHG INOW ADDR IN LE. 
EAL H, RTSCMO BILE CMNO BLOCK. 
CALL BLOCK 7FPERFORM BLOCK MOVE. 
MVI A» DCSINT SLOAD OO INTERRUPT. 
QUT DSPORT 5 ISSUE DO INTERRUPT. 


SHHHHHHH( WAIT FOR DOUBLE 0D HALT )##XRHHKRHKHHHKHRHHHHHHEH 


LIA DOSHAL T LOAD HALT BIT MASK. 

MoV B.A MASE IN E REGISTER. 
DUSKSWT: IN DSPoRT READ DO STATUS. 

ANA E TEST HALT# FLAG. 

INZ DSK SwT TEST UNTIL HALTED. 


SH#HEHRHHHH( GET DOUBLE DF STATUS ) KHHHKRKKHHHHHHHHHHHHHRHHHHEHE 
MVI 


ILIT 


Ao L$ IN SWITCH DD INTO SYS. 
DSPORT 5 ISSUE HARDWARE CMNO. 

XCHG EXCHANGE SRO/ODSTN. 

MoV A»M STATUS INTO A REG. 

= TAX Li STORE STATLIE BYTE. 

ANA A TEST FOR ERRORS, 

RET RETURN TO CALLER. 


FHHHHHHHHHHEHHHHHHHEHHHRHHHKEHKEHKHHHEHKRHRHKHEHHRRHKHHHEHHE 
7 Leon, = SET DISK FARAMETER BLOCK # 
SHHHHHHHHHHHHHHHHHHHHKHHHEHRHHRHKHKHHKRHKKRHKEHHREHHRHHEHEHE 
SHHHHHHE( CHECK 


IF LOG-ON REQUESTED J) HH#HHRKRHEHEHHHHHHHHEE 


LOA LOGSRE SCHECK LOG REQUEST. 
ANI OO1LH LOG ON BIT TEST. 
NZ DSk SOK RETURN, NO LOG-ON., 


sHHHHHHH( READ IDENTITY SECTOR ) RHKHERHHEHHEHEHHHRHEHHHHHHEHHHHE 


SHLI DOTSe TR 7S TORE ORY TEL PNTR. 
MVI A»DCSSIN SSWITCH OD INTO SYS, 
OUT DSPoORT 5 ISSUE HAROWARE CMND. 


ARIC4 
4ElL. 
4EL:'7 
4B 
SRIF 


4B 
4B05 
4600S 
4ELi 
AEH. 
4B0E 
4REO 
4EE x 
4BES 
4BE4 


4BE? 
4REC 
4BEF 
4BF2 
4BF Si 
4BF6 
4BF 
4BFC 
4EFF 
4coz 
4cog 
4co4 
ACOs 
400% 
400C 


4COF 
4012 
4015 
4018 
4018 
4C1E 
4021 


4024 
4027 
402A 
4ic2B 
4c2c 
4020 


4 sE 
ACTF 


SEOO 

COSA4E 
CADS4IE 
210000 
I S4A4B 


118002 
2LA4F000 
i? 
LIE14C 
O408 
1A13 
BESS 
C20F 40 
as 


CSDE4B 


COSE4(C 
COSA dar: 
O1aAdOs 
SA4000 
ov 
OLOFOO 
CO414¢ 
118103 
ZA4000 
i 

7E 
E404 
Cos44e: 
ZAGL4C 
34448 


CO244C 
CLEA 
QOLOFOO 
217F4C 
CO414¢ 
ZAGZ4C 
C24445 


114654C 


ZAGL4C 


= 
? 
a 
3 


LUGE. 


LUG$ IL: 


HEHEHE EH ( 


MV I 
CALL 
IZ 
EAL 
IMF 


EAL 
LHLD 
DAD 
LXI 


MVI 


LCIaX 


LMF 


INZ 
Lik 
NZ 


CHECK 


A» Dé 
Desk SE X 
LOGSCr 
HO 

DOSE SER 


FOR JADE 


DO. OOSBLF 


NéAllik 
[i 


Li, AALIEIL 
E, TOUSSZE 


Li! 

hE: 
LiGs740 
E 
LLGEILI 


It 


INX 
INX 


FHHHHHHH( DOTISEETTE CONTAINS 


SHHHHHHEH( SQSSLIME 


LGs7405 


CALL 
CALL 
LxI 
LHL 
LAL 
LXI 
CALL 
LxT 
LHLI 
LIAL 
May 
ANI 
CZ 
LHL D 
IMF" 


CALL 
CALL 
LXI 
LXI 
CALL 
LHL 
ME 


ore, అ 


SHHERHHH( SE 


TR3740% 


HHH ( 


TRNONE: 


LAT 
LHLE 
MoV 
INX 
Mov 
RET 


XRA 


LHLD 


TRNONE 
DPBSAD 


EH, DOSE 


LéALILK 
E 


B,OFRSSZ 


BLOCK 


Li, OOSO0Or 


LI#ALILIR 
[i 

fiz M 
O4H 
TR3740 
OTéSe TR 
Lik SOK. 


LOAD DCM LOG-ON CMNE. 
SFPERFORM OTSk OF. 

sGO TO LOGON ERROR. 
ERROR, BAD LOG UN. 
PRIS EAL?» 


JHHHHHKHHKHHHEHHHHHHKHHKHHEEE 


[i 


IL 


700 BUFFER OFFSET. 

700 SYS ADDRESS. 

HL NOW FNTS BUFFER. 
Pee PNI Ss BIOS LL. 

EET BABEL SIZE. 

HET LABEL CHARACTER. 
;DOES ID SECTOR MATCH. 
ASSUME DISKETTE 3740, 
;DECREMENT COUNT. 
SCHECK IF ANOTHER CHR. 


JHHHHHHHHHKHHHHHHHHHHHEE 


SASSUME DODENS. 

7GET DOFB ADDR IN OE. 
SLFE ADDR OFFSET. 
SLL! SYSTEM ADDRES. 
HL NOW AT IL LIFE, 
DPB SIZE IN BYTES. 
sMOVE INTO DFR. 

310 OTA ONS OFFSET. 
SOO SYSTEM ADDR. 
HL POINTS FLAGS. 
LOAD FLAGS. 

TEST DATA DENSITY. 
IF O USE 3740 TRN. 
RELOAD POINTER. 
EXIT BIOS JUMP. 


S740 DISKETTE ) RHKRHRHHHHHRHHRHRHRHHHRHHHEH 


TRA740 
DFP RSAD 


B,OPBSS2Z 
H, sOSPBE 


BLOCK 
OTSerr 
DSK SOK 


Li, SOTRAN 


OTéeTR 
MoE 

H 

M.D 


A 


DOTSP TR 


SET SECTOR TRANSLATE. 
SET REGISTER LE. 

DPE SIZE IN BYTES, 
ADDRESS OF BLE IMAGE. 
MOVE INTO OPEB. 

RELOAD POINTER. 

EXIT BIOS JUMP. 


an 


382 83S wR 8 


S82 JSG WS 


3740 SECTOR TRANSLATION )RHHHHHHHHHEHHHHHHE 


SECTOR TRAN TBL ADDR. 
PADDR DISK FARA HIER. 
SLL QROER ADDR, 
SPLINT NEXT BYTE. 
HIGH ORDER ADDR. 
RETURN TO LOG USER, 


SET NO SECTOR TRANSLATION )##HEHHEHHEHHHEHHHEHREH 


ZERO A REGISTER. 
ALLOK OF FARA HIER. 


4a 
4033 
434 
47035 


436 
4037 
403C 
4030 
43eE 
40a 

4040 


404°. 
4040 
4150 
4034 


4CSe 
AC 
405A 
4C 5B 
4C3C: 
40D 
4CS5eE 
4c05F 


AIO 
4Cé2 
44 


COA) 
O042 


Was: 


23 
77 


Uy 


2AGS4C 
110A00 
1 


7EZS 
IiZis 
QOB7SB1 
Ce414cCcr 


7E 
FEZ4C8 
4FCOO0CrO 


Sac acac: 


OO 
00 
OO 
OO 
OO 
OO 
OO 
Te) 


0000 
COO0O 


On 


MLV MA 5 ZERO LOW ORDER ADDR. 
INX H NEAT BYTE. 

ML M.A 2ER HIGH BYTE. 

REL RETURN TO LOG USER. 


*HHEHHHHH( GET DRIVE PARA BLE ADDR )RHHHHHHHHHHHHHHHHRHHH 


DFBSAgs LHLE DTSe TR PADDR OLS FARA HOER. 
LAL Qi. 10 7;DORFE TRL PNTR OFFSET. 
LIAL! Li >NOW AT LIFE FNTR. 
Mov EM 7LOW ORDER ADDR. 
INX H s;NEXT BYTE. 
Mov Ci. h HIGH ORDER ADR. 
RET SRETURN TO LOG USER. 


SHHEHHEHHHHKHHHHEHHHHEHRHHHHRHERHHHRRHHHHHHHRKEHHHHHRKRHERHHHHHHEHHE 
5 BLOCK MOVE SUBROUTINE -— ZS0 LOIR WILL FUNCTION HERE # 
SHHHEHHHHHHHHKHEKHHEHHHKHERHHERHHHHKERRHHHREHHHHREHHHHERHEHHRHEE 


BLOCK: Mtv AM! INX H GET EACH BYTE. 
= TAX Ti! INX UL 7,5 7TORE EACH BYTE. 
OCX B!' MOV AB! ORA C SDEC LENGTH (MAX 64). 
IN Z BLOCK! RET FINISH BLOCK AND RET. 


FS HHHHHHHHHHHHHHHHRHHEHHEHHEHHRHHHEHEHEHRHHHHHRHEHEHREREREEE 
5 MESSAGE DISPLAY ROUTINE ~ HL REG POINTS TO STRING # 
SF LHHHHKHEEHHHKKEKHHHHKKHRERKHHKRKERHHHKHKKKRREREHHRHHHHHEEE 


MSGsoTs mov AoM LOAD CHARACTER/BYTE. 
CFI EON: RZ EXIT IF TERMINATOR. 
MOY CA! CALL CNSé#OT sOISPLAY CHARACTER. 
LX H! IMF MSG$0OT 3REFEAT FOR NEXT BYTE. 


S HHHHHHHHEHRHHHHKHKHEHHHHHKKHHRHHHHKKHHHRHRHHHHRHEHRRRRHHHHHEEH 
> DOUBLE DO ~ DCM COMMAND BLOCK BUFFER * 
 RERHRRERERHHHHHERHHRHHRHHHERHRHHHRHEHREHEHEHHHHHHHHHHHHHHH 


ETéCML: LE O LIC COMMAND. 
ETSOURV: [DE QO SLRIVE NUMBER. 
BETSTRE:s LE ae 7; TRACK NUMBER. 
BRISSEC: DR Q SSECTOR NUMBER. 
BTSSPO: LIE QO SPARE BYTE OQ. 
RTSCHR: OB ) LIST CHARACTER. 
BETéMoo:s DE OOO00000B8 MOLE CONTROLS. 
BTSsTs: OB QO SCOMMAND STATUS. 


5 HHHKHHHHHHHHHHHHHHRRHHHRHHRHKHERHHHRHRHHHHEHHHHREHREHRHHEEHEHH 
5 BIOS VARIABLE STORAGE # 
S HHHHEHHKHHKHKHEHHHHHHHHKHEHHHRHERHRKKHERHHRERHRRKREHHHEEEHHE 


BTSOMA: 
DOTSeTRs 
LOGGER: 


CiW QO 
Lit 0) 
DE £) 


SYSTEM TRANSFER ADDR. 
;DORIVE TABLE POINTER. 
SLOG UN REQUEST REG. 


5 HHHHRHHHHKHHHEKHHHHEHHHRHRHRRHHHHRHRHHEHRHHRHRHRHHERERHEHEHEH 
5 DOUBLE 0 ~ MEMORY ASSIGNMENTS (40-4F HEX) + 
5 RHHHHHHHHHHHKHRHHRHEHHHHHHRRHKRERHHKKEHRHRHKHKERHHHHREHHHREEHEE 


C$AnnR Em 
DSHALT Et 


QOOQ40H 
O042H 


LIL SYSTEM WINDOW ADDR FOINTER. 
SLL HALT STATUS MASK LOCATICN. 


ACG 
ACEF 
479 


4 7F 
4081 
4c 
ACE 
404 
Alii 
4 
qi 
408A 
Mil: 


FAN ee 
acy 
ACE 
ACR 


Av’ 
4A 
4OE 
41°84 


41010 


ONDQE 


రిక oe. ఏరిన 


COOL 
o0z4 
QOOLA 


4Cel 
QQO0E 


©“ LHHHHHEHRPHHHHHRHHHHHHEHEHAHHHHRHHHHHHHHREHHHRHRHHHRRREEEE 
5 3740 FORMAT FARAMETERS etek CP/M SINGLE DENSITY # 
“REHHHHKHHHHHKERHHHRHHHH EH HHHHHEHHHHHHHHHHHRHHHRRRHREREE 
'Heeeexe( SINGLE DENSITY CFM SECTORING )#HHHHHEEHEHHHHES 
OLH, O7H, OTH, 13H. 17H» OSH; OBH: 11H» 17H» OSH 
OPH: OFH, LEH, O2H. OSH. OEH: 14H» LAH: OGH» OCH 
12H, Hs O4H, OAH, 10H, 16H 


LIE 
LIE 
LIE 


Q107001 1 75S0TRAN: 
OOF LSOLOS 
1Z1S040A10 
JHHHHREKHHEEHRHHEH 


FH#HHHHHH( DEFAULT DISK FARAMETER BLOCK 


LAQO SOSP BE s 


Oc 


Lik wh 
[LIE 4 


2 SSECTORS FER TRACK. 
De 7 


SRLOICE SHIFT FACTOR. 


OF 7BLOCK MASE. 

QO LIE 1) SNULL MASE. 
F200 iW 24s LISLE Slee hy 
FOO Li Ee SOIRECTORY MAX. 
£0) LIE 119000008 sALLOC oO, 

OO LIE () SALLOC 1. 

1000 QW 1é CHECK SIZE. 
COO) Lil జ 5 TRACE OFFSET. 


5 HHEHHHHHHHHHHHHRHHHRHHREHRERHERREHHHRHHHHHRHHRRHRRERHHRHEHEE 
> ZERO PAGE IMAGE ~ BLOCK MOVED TO BASE FAGE # 
S HHHHKHHHHHHHKRHRHHKERHHHHHHKK ERE ERHKHERHHRKHRHHHHEEREHHHEE 


SO S44 BESIMGe IMF RIOS+03H SWARM BOOT VECTOR, 


OO IOsIMG: OR TOBYTE 31/0 BYTE IMAGE. 
OO DFSIMG: OB LIF SORV DEFAULT DRIVE IMG, 
Cael IMF BOOS+06H ROS CALL VECTOR, 


SHHHHHHHHEHHKHHHHRHHHHHHHERHRHHRHHRHHEHERHRRHHHHEERHRRHHHREREERE 
5 MESSAGES | + 
SHHHHHHHEEHHHHKHHEHHRHHHKHEERHEHHHRHEERRHHHHERHHEERHERHHHHHEEEE 


OOOAOTOA 
4A41444520 
S230 


4$R2O04 3502F 


CALF »CR. LE 

[IE “WADE COMPUTER FROLDLUCTE CRLF 

[IE “O° + CPM$NkK / 10,°0° + CFMENE MOD 10 
[IE “EK CR/M 2.2 DORIOS2°,.CR,LF,CR,LF,EOM 


Msaeésos DER 


ODOA424350MSG$LE: DB (RLF. CCP/BEODOS LOAD ERROR”, ECM 


= LF EG QOAH 7ASCII LINE FEED: 
= CR E GH OOTIH 7CARRAIGE RETURN. 
= ECM EGIL ee SEND OF STRING. 

= CNTLSZ EL O1AH SCONTROL-~Z (EOF). 


FHHRHHHEHHHHKHHHHHKHHHHHHHHHHERKRHRERHRRRREHRRHRHKERERERHREEEHE 
5 ID LABEL DEFINITIONS # 
FHHHHKREHHEHHKHKHHHHHHHKKHHHHHRHRHKHKKRHEREKERHRRHERERREEHREHEHEREEEE 


“WADE Of 
$-JADE IL 


LABEL. 
sll 


710 


AAG G44520JADE 1D: DB 
= 5 LABEL 


IQNSsZeE EL 


5S HHHHHHHHHHHHHHHRHRHERHEHHRHHRKHKHHRHEHHHHHHHERHHRRHERHEHE 
5 DRIVE FARAMETER HEADER AREA + 
5 HHHHHHHHHHHHHHHHHHKHHRHEHRHEHRHHRHRHHHEHHRHHHEHERHHHHEHEHESH 


4Ce% 
4EB 
41_EL 
SIZ EF 
4L:F 1 
40F S 
4ICF = 
4:F 7 


41k 7 
4Lit 1 
4Liu)a 


4E00 
OOF 7 


400% 


4E OO 


QQOF 


QOO2 1 
OO2O 


4ES0O 
4 SF 


OOOO DOSeH: CW c SECTOR TRAN TEL. 
Oooo Lik f_} SSCRATCH AREA. 
OoOog Ci () SCRATCH AREA. 
౧nOO0) Li () ECRATCH AREA. 
QOO4eE [iy DIRSBF SOIRECTORY BUFFER. 
SO4E Ci DOSE SORIVE FARAM ELE. 
BO4E Ci DO SI HE: SORIVE CHANGE ELE, 
mF 4E Cid NOSALL SORIVE ALLCCATICN. 
IF (1-N$0DRVS) SHR 12: TEST SIGN BIT. 
OONOQONOOOO0O0NLSEORH! DW 0,0,0,0 
QO4EDO4E Ci LIR#EF , [i $1FE 
CO4F DOF 4E Cid DLisCcHe, O1LSALL 
ENDIF 
IF (S[-NSORVS) SHR 15% 
Ce$60FH:s CW O,0,0,0 
Li DIRGRF, OSé0FB 
Ci] DSSCHE. OS$¢ALL 
ENDIF 
IF (3-NSDRVS) SHR 15 
CSsorH: DW 0.0.0.0 
Cid QIRShE, CAtore 
Ci CSSCHE . ISSA L 
ENDIF 
S HHEMHHRRHHHREHHEREHRHRHHHRHHHREEHHEHHHRHHRHEHHHHEEHRHHEREHRHHEEH 
5 BIOS FPROGRAM AREA REMAINING 3 
SHHEPHHRHRKREHKHKKRKRERHRHHRHHHHREERHRHHHHHEHHEPHHHHRHHHKSRHRERERHEEE 
2 BRIOSé¢U Et RIC + E#E SREGIN SCRATCH AREA. 
= RIGSéF Ertl BIiGsSs ~ 4 sSNUMBER CF BYTES FREE. 
IF BIQSéF SHR i TEST FROG OVERFLOW. 
ERROR Egil 1/0 GENERATE ERROR, 
ENDIF 
FeAREA: [rs BIOS$F FUSE UF FROG AREA. 
SHEHHHHHHHHHHHHRHHHHHRRHEHRPHRHERHRHREHRHEHHREURHEHRHHHHHEHHHEERESEH 
> DIRECTORY BLUFFER AREA ~ BEGINNING OF SCRATCH ARES +t 
SHHEHHHHHHHHHHHHHHRHHHRHHHPHHHRHHHHMHRHHHRHEHPHHHHPHHBHEREHRHHEHEH 
QIRSBR: OCs SESS 2 
SHHHHHKHKHHHHHEHHEHRHHHHHHKHHHHKHHRHHHHRRHKERHREEHEHRE EHH HEHEHE 
; DRIVE TABLE ENTRY — SIZES + 
S HHHHHHRHHKRKHEEHHHEHHHHHPHRHRKRHHEHHHHHHHKHRHHRKRRHEHHEERERHEERHR EERE 
= TP RSéSs2Z Emu tee PARAMETER BLOCK SIZE. 
= ALLESaZ Em a SALLOCATICN INFO SIZE. 
ss CHE Bi 7 Emit a SCHANGED DISE SCRATCH. 
S HHHHKHHHEKRHHHERHEHHHHHBHERHEHRHHHKHRHHHHKHRHKRHRHEREREKHE RBH RHEE 
5 DRIVE TABLES -—- SCRATCH AREAS # 
SHHHHHHHKHHHHHEHHHHHEEHHHHHHHHRERERERRKREHERHREERHER RE HRHHEHREEE 
QOSORPR: Cs DPBS 7 SOLE PARAMETER BLOCE. 
DOSAlble Crs ALLS 2 SISK ALLOCATION INF, 








4E RO DOSCHEs Os CHE Gi Z SOISE CHANGED SCRATCH. 


IF C(1-N#DRVS) SHR is 
4ETIO Nitores Crs DFARS 7 SOISK FARAMETER BLOCK. 
4E0IF CiéAlLL: Crs ALL E3Z sOLSE ALLOCATION INFO. 
4FOO DiSCHke: Cs CHESS Z OIE CHANGED SCRATCH. 
ENDIF 


IF (2-NSODRVS) SHR I 
D2St0rPes DS DPR SS Z ;DISK PARAMETER BLOCK. 
QS$ALL: OS ALLSsZ DISK ALLOCATION INF. 
USSCHE: OS CHESS Z FDISK CHANGED SCRATCH. 
ENDIF 


IF (S-NSDORVS) SHR 15 
DSSOPRs Cs DF BES Z SISK FARAMETER BLOCK, 
DS$Alles OS ALL S32 SDISE ALLOCATION INFC, 
DS$CHeE:s OS THE $5 2 SISK CHANGED SCRATCH. 
ENDIF 


S HHHHEHHHHHHHKRHHEKRHHHHHRHKER KHER RHR RHHKREHRHKHRHERHHHREE 
4F 20 END 


